home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / t2win_16.zip / T2WLOAD.BAS < prev    next >
BASIC Source File  |  1996-01-15  |  2KB  |  72 lines
  1. Attribute VB_Name = "T2WLOAD"
  2. Option Explicit
  3.  
  4. Declare Function GetWindow Lib "user" (ByVal hWnd As Integer, ByVal fct As Integer) As Integer
  5. Declare Function GetTopWindow Lib "user" (ByVal hWnd As Integer) As Integer
  6. Declare Function GetNextWindow Lib "user" (ByVal hWnd As Integer, ByVal fct As Integer) As Integer
  7.  
  8.  
  9. Sub Main()
  10.  
  11.    Load frmT2W
  12.  
  13.    Call cCenterWindow(frmT2W.hWnd)
  14.  
  15.    Call cShowWindow(frmT2W.hWnd, 0, 160)
  16.  
  17.    frmT2W.Show
  18.    
  19.    Call cArrangeDesktopIcons
  20.  
  21. End Sub
  22.  
  23.  
  24. Public Sub fct_Check_Date_In_CTIME()
  25.  
  26.    Dim Tmp        As String
  27.    Dim Ligne      As String
  28.    Dim LowLigne   As String
  29.    Dim SaveFct    As String
  30.    Dim Flag       As Integer
  31.    
  32.    Close #2
  33.    Open "c:\tmp\modify.tmp" For Output Shared As #2
  34.  
  35.    Tmp = cFilesInDirectory("c:\link\*.bas", True)
  36.    
  37.    Do While (Len(Tmp) > 0)
  38.       SaveFct = ""
  39.       Debug.Print Tmp
  40.       Flag = False
  41.       Close #1
  42.       Open "c:\link\" + Tmp For Input Shared As #1
  43.       While Not EOF(1)
  44.          Line Input #1, Ligne
  45.          LowLigne = LCase$(Ligne)
  46.          If ((InStr(LowLigne, "function ") = 1) Or (InStr(LowLigne, "sub ") = 1)) Then
  47.             SaveFct = Ligne
  48.          End If
  49.          If ((InStr(LowLigne, "date") > 0) And ((InStr(LowLigne, " < ") > 0) Or (InStr(LowLigne, " > ") > 0) Or (InStr(LowLigne, " >= ") > 0) Or (InStr(LowLigne, " <= ") > 0))) Then
  50.             If (Flag = False) Then
  51.                Print #2, "--->"
  52.                Print #2, Tmp
  53.             End If
  54.             Print #2, "   "; SaveFct
  55.             Print #2, "      "; LTrim$(cExpandTab(Ligne, 1))
  56.             Flag = True
  57.          End If
  58.       Wend
  59.       Close #1
  60.       If (Flag = True) Then
  61.          Print #2, "<---"
  62.          Print #2, ""
  63.       End If
  64.       Tmp = cFilesInDirectory("c:\link\*.bas", False)
  65.    Loop
  66.    
  67.    Close #2
  68.    
  69.    Debug.Print "---"
  70.  
  71. End Sub
  72.